library(ggplot2)
setwd("E:/5hmc_file/2_5hmc_yjp_bam/ASM/20210405.GO.enrich")
file=read.table("8544.ASH.toppgene.enrichment.for.show.txt",head=T,sep="\t")
file=read.table("807.psyASH.toppgene.enrichment.for.show.txt",head=T,sep="\t")
file=read.table("200.psyASH.toppgene.enrichment.for.show.txt",head=T,sep="\t")
file=file[order(file$q.value.FDR.B.H),]
file$num=dim(file)[1]:1

ggplot(file,aes(Hit.Count.in.Query.List,num))+geom_point(aes(size=3,color=q.value.FDR.B.H))+
  scale_color_gradient(low = "#E64B35", high = "#3C5488")+
  scale_y_continuous(breaks = file$num,labels = file$Name)+labs(x="Counts",y="")+
  theme_bw()+
  theme(panel.grid.minor = element_blank(),axis.text = element_text(size = 12))
